Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/lisp/eulisp/comp0_89.lha/Feel/Boot/Compiler/assem.fm

Text File | 1993-07-16 | 5KB | 1,098 lines

(standard standard0 list-fns instruct stream comp-defn stop)
9
1746
(0 assem "Done: ~a instructions~%" 4 1 (reify-code-list) ((strip (union (except (fold) (union (import standard))) (only (pair) (union (import standard0))) (import list-fns) (import instruct) (import stream) (import comp-defn) (import stop))) reify-code-list) assem)
36
0 0 17 0
5
0 0 0 0
3
0
31
0 0 110 0
17
1
36
0 0 27 0
5
0 0 0 0
4
0 0 8 0
46
1
(boot . make-installed-module)
34
2
36
0 0 40 0
5
0 0 0 0
8
3
4
0 0 6 0
5
0 0 9 0
3
0
39
8
0
17
1
1
(boot . install-local-bindings)
34
3
17
1
36
0 0 28 0
5
0 0 1 0
8
3
4
0 0 7 0
1
(boot . make-interface)
34
2
17
1
14
2
1
37
22
0
36
0 6 40 0
11
4
0 0 2 0
5
0 0 0 0
39
51
1
7
0 0 9 0
36
0 2 182 0
11
4
0 0 2 0
6
1
39
51
5
7
0 0 10 0
36
0 1 236 0
11
4
0 0 2 0
6
2
39
51
5
7
0 0 11 0
36
0 1 95 0
11
4
0 0 2 0
6
3
39
51
4
7
0 0 12 0
36
0 1 48 0
11
4
0 0 2 0
6
4
39
51
2
7
0 0 13 0
36
0 1 5 0
11
4
0 0 2 0
6
5
39
51
1
7
0 0 14 0
36
0 0 218 0
11
4
0 0 2 0
6
6
39
51
1
7
0 0 15 0
36
0 0 114 0
11
4
0 0 2 0
6
7
39
51
2
7
0 0 16 0
36
0 0 25 0
11
4
0 0 2 0
6
8
39
51
1
7
0 0 17 0
18
3
1
37
1
(list-fns . fold)
1
(arith . +)
36
0 0 36 0
1
(instruct . instruction-argwidth)
36
0 0 19 0
1
(instruct . i-info)
8
9
10
33
1
10
34
1
4
0 0 5 0
12
14
7
4
9
13
5
34
3
22
2
11
20
0
0
10
20
0
1
36
0 0 11 0
11
40
2
15
4
37
36
0 0 19 0
1
(extras0 . caar)
8
5
10
34
1
10
19
0
1
43
32
0 0 35 0
11
26
1
(arith . -)
11
19
0
0
8
5
27
3
0
39
62
-2
28
0
17
2
15
2
37
18
39
37
36
0 0 17 0
1
(comp-defn . the-static-handle)
9
34
0
15
2
16
39
37
36
0 0 17 0
1
(comp-defn . the-link-handle)
9
34
0
15
2
16
39
37
1
(lists . assoc)
12
12
14
6
3
1
(boot . eq)
62
3
37
36
0 0 21 0
4
0 0 13 0
8
7
8
6
3
0
31
0 0 42 1
9
42
32
0 0 47 0
36
0 0 17 0
1
(comp-defn . the-long-handle)
9
34
0
3
0
39
9
8
7
3
0
39
29
18
9
9
27
8
5
39
8
7
39
14
9
2
39
37
36
0 0 17 0
1
(comp-defn . the-long-handle)
9
34
0
3
0
39
9
1
(arith . -)
12
27
8
6
3
0
39
62
-2
3
0
39
29
18
13
6
17
4
39
37
36
0 0 19 0
1
(instruct . is-link-arg)
8
8
10
34
1
32
0 0 26 0
4
0 0 14 0
13
6
17
4
16
9
13
3
18
3
0
31
0 0 208 1
36
0 0 19 0
1
(instruct . is-static-arg)
8
8
10
34
1
32
0 0 39 0
8
4
44
32
0 0 10 0
17
4
15
2
37
4
0 0 15 0
13
6
17
4
16
9
13
3
18
3
0
31
0 1 32 1
36
0 0 24 0
1
(init . =)
8
8
4
0 0 4 0
11
33
2
32
0 0 49 0
8
4
44
32
0 0 10 0
17
4
15
2
37
36
0 0 17 0
1
(comp-defn . the-long-handle)
9
34
0
3
0
39
9
8
6
3
0
39
29
18
15
7
37
17
4
15
2
37
22
6
8
5
20
0
0
8
4
20
0
1
12
20
0
2
11
20
0
3
10
20
0
4
9
19
0
0
42
32
0 0 84 0
36
0 0 32 0
1
(extras0 . format)
3
1
4
0 0 3 0
8
5
19
0
2
3
0
39
12
34
-3
18
36
0 0 30 0
1
(extras0 . convert)
12
19
0
1
1
(standard0 . pair)
11
34
2
3
0
39
9
11
19
0
2
3
0
39
29
18
15
7
37
9
19
0
0
26
10
16
20
0
5
18
36
0 1 107 0
11
40
1
36
0 0 22 0
1
(instruct . is-inline-code)
8
4
19
0
5
10
33
1
32
0 0 123 0
4
0 0 10 0
11
19
0
0
27
36
0 0 44 0
1
(stream . write-stream-list)
8
6
19
0
1
36
0 0 22 0
1
(instruct . inline-code)
8
10
19
0
5
10
33
1
11
33
2
1
(arith . +)
36
0 0 22 0
1
(instruct . inline-code-count)
8
8
19
0
5
10
33
1
8
6
19
0
2
3
0
62
-3
8
5
19
0
3
8
6
19
0
4
8
5
14
14
6
9
13
7
26
31
0 1 16 1
36
0 0 22 0
1
(instruct . is-null-op)
8
4
19
0
5
10
34
1
32
0 0 48 0
4
0 0 10 0
11
19
0
0
27
12
19
0
1
8
4
19
0
2
8
5
19
0
3
8
6
19
0
4
8
5
14
14
6
9
13
7
26
31
0 1 86 1
36
0 0 22 0
1
(instruct . is-label)
8
4
19
0
5
10
34
1
32
0 0 36 0
36
0 0 22 0
1
(instruct . instruction-label)
8
4
19
0
5
10
34
1
11
14
9
2
31
0 0 87 0
36
0 0 22 0
1
(instruct . i-arg-list)
8
4
19
0
5
10
34
1
36
0 0 39 0
1
(instruct . instruction-argtypes)
36
0 0 22 0
1
(instruct . i-info)
8
8
19
0
5
10
33
1
10
33
1
12
19
0
3
8
4
19
0
4
3
0
8
6
14
13
6
31
0 0 99 0
4
0 0 10 0
10
19
0
0
27
11
19
0
1
12
19
0
2
36
0 0 48 0
1
(list-fns . fold)
36
0 0 24 0
4
0 0 16 0
8
10
19
0
2
8
12
11
26
31
0 3 224 1
8
8
19
0
3
3
0
12
34
3
8
6
8
6
19
0
2
39
8
6
19
0
4
39
8
5
14
9
6
9
13
7
26
31
0 2 64 1
8
5
42
32
0 0 137 0
4
0 0 10 0
10
19
0
0
27
36
0 0 64 0
1
(stream . write-stream)
8
5
19
0
1
36
0 0 22 0
1
(instruct . i-inumber)
8
9
19
0
5
10
34
1
36
0 0 19 0
1
(gens . reverse)
8
11
10
33
1
39
11
33
2
1
(arith . +)
8
4
19
0
2
36
0 0 22 0
4
0 0 17 0
8
8
19
0
5
3
0
31
0 4 192 1
3
0
62
-3
8
7
8
7
8
5
14
13
6
9
13
7
26
31
0 2 204 1
36
0 0 20 0
1
(instruct . is-branch-arg)
8
7
26
10
34
1
32
0 0 60 0
36
0 0 29 0
4
0 0 12 0
8
8
26
8
7
8
7
8
6
19
0
2
3
0
31
0 4 47 1
8
6
27
8
6
27
11
27
8
6
8
4
26
8
7
39
8
6
14
13
6
31
0 0 215 1
36
0 0 32 0
4
0 0 11 0
8
7
26
8
9
26
8
5
19
0
2
8
9
8
9
3
0
31
0 3 241 1
8
6
27
8
6
27
8
6
8
6
8
4
8
7
39
8
6
14
13
6
31
0 1 16 1
4
0 0 10 0
11
36
0 0 17 0
1
(stream . make-simple-stream)
9
34
0
4
0 0 1 0
3
0
3
0
8
5
14
9
6
9
13
7
26
31
0 3 131 1